library(plotly)
mydf <- read.csv("Litter_Wt_Loss.csv")
plot_ly(type="table",
header = list(values = names(mydf),
align = c("center", "center"),
line = list(width = 1, color = 'black'),
fill = list(color = c("grey", "grey")),
font = list(family = "Arial", size = 14,
color = "white")
),
cells = list(values = unname(mydf),
align = c("center", "center"),
line = list(color = "black", width = 1),
font = list(family = "Arial", size = 12,
color = c("black"))
)
)